perm filename LETALS.TEX[WEB,ALS]1 blob
sn#731621 filedate 1983-11-27 generic text, type T, neo UTF8
% ∞tssec/Letter-Heads, Sign, Destinatary/
\let\at=\@
\let\per=\%
\def\langrestore{}
\def\english{\langrestore
\let\langcoderestore=\¬
\let\langrestore=\¬
\def\date##1{\gdef\todate{##1, 1983}}
\hyph 50}
\def\todate{}
\def\stanford{\let\jaddr=\saddr\let\jname=\sname
\def\ltfnt{\dunhill\baselineskip16pt}
\def\lbltop{{\hskip-5pt$\vcenter{\vskip18pt
\hbox to 40pt{\stanlogo B}
\vskip18pt}$}{\sname}{\saddr}}
\def\jlogo{\hskip-60pt$\vcenter{\spose{\stanlogo T}}$\hskip 58pt}
\job}
\def\personal{\formalstyle\titlepage
\def\ismemo{F}
\def\hdid{}\def\fotfnt{\it}
\def\lbltop{{}{\pname}{\paddr}}
{\phdfnt\ctrcol{\paddr}}
\vskip 40pt
\rjustline{\teniu\todate\hskip 20pt}
\vskip .5in}
\def\phdfnt{\eightpoint}
\def\smemo#1{\formalstyle
\normalpage
\def\fotfnt{\rm}
\def\ismemo{T}
\def\hdid{{\def\cr{ / }\saddr}}
\ctrline{\undertext{\hbox{\hquad\sanss\Memo\hquad}}}
\vskip 30pt
\cc{\To⊗#1\cr\zkip{1.5pt}\From⊗\sname\cr\zkip{1.5pt}}
\vskip 10pt}
\def\to#1{{\def\cr{α}\apply{\getfirst}{#1ααβ}{\hdid}}
\setbox9\vbox{\halign{\lft{##}\cr#1}}
\if T\ismemo{}
\else{\setbox7\vbox{\unbox7\apply{\lblfmt}{\lbltop{\box9}}{\label}\label}}
\vbox{\halign{\lft{##}\cr#1}}\yyskip\yskip}
\def\@{\par\chcode'15←13\chcode'45=13\def\%##1\
{}\getgente}
\def\sign#1{\par\dontbrk\vskip .3in
\rjustline{\lftcol{#1}\hskip 120pt\null}}
\def\signbar{\hfill\vbox{\hrule width 80pt}\cr\zkip{4pt}}
\def\cc#1{\halign{\lft{##}⊗\hquad\lft{##}\cr #1\cr}}
\def\fin{\endpage\if T\ismemo{}\else{\unbox7\endpage\setbox7\vbox{}}}
\def\sqip{\zkip{15 pt plus 2.5pt}}
\def\ssqip{\zkip{50 pt plus 10 pt}}
%∞pagebrk∞tssec/Phone & Addresses Directory/
\def\deskstyle{\columnsperpage{3}{2truein}{.125truein}{6.375truein}
\setvsize{9.125truein}
\def\lftcolskip{.0625truein}
\def\genteskip{5pt plus 1pt minus 1pt}
\def\nlfmt{\endpage\topspace.0625truein
\hbox{\sanss\ini}\vskip 5pt\hrule width\hpagesize\vskip15pt}}
\def\pocketstyle{\columnsperpage{2}{2.875truein}{.25truein}{7truein}
\setvsize{6truein}
\def\lftcolskip{.5truein}
\def\genteskip{0pt}
\def\nlfmt{\endpage}}
\def\phonebook#1{\gdef\@{\chcode'15=13\chcode'45=13{}\getpgente}
\if T#1{\gdef\%##1\
{##1\cr}}\else{\gdef\%##1\
{}}
\chcode'174=13
\def\|{, }
\def\ini{z}
\let\fottypeface=\teniu\def\fotfnt{}
\eightpoint
\parindent0pt
\fullpages
\def\intercolsep{\ctr{\vbox to size{\leaders\vrule\vfill}}}
\let\frameit=\pageframe
\multicolfmt}
%∞pagebrk∞tssec/Internal Handling of Pages/
\def\job{\formalstyle
\titlepage
\gdef\ismemo{F}
\gdef\fotfnt{\rm}
\hbox to size{\jlogo$\vcenter{\ltfnt\lftcol{\jaddr}}$
\hfill$\vcenter{\eightpoint\lftcol{\whoswho\cr}}$}
\vskip 40pt\rjustline{\todate\hskip 75pt}\vskip 25pt}
\def\formalstyle{\endsheet
\arabicnumbering{1}
\gdef\btmnrspace{1in}
\gdef\fotfnt{\rm}
\computevsize{\epagesize}{\btmnrspace}
\gdef\titpage{\box5}
\gdef\nrmpage{\box5\btmstrip}
\gdef\btmstrip{\vbox to
\btmnrspace{\vfill\fottypeface\fotfnt
\hbox to \hsheetsize{\hdid\hfill\todate\spose{\qquad\count0}}}}}
\def\lblfmt#1#2#3#4{
\vbox{\boxit{\hbox to \lblwid{#1$\vcenter{\eightpoint\lftcol{#2\cr#3}}$}}
\vskip.2pt
\boxit{\hbox to \lblwid{\ctr{\vbox to \lblht{\mid{#4}}}}}}}
\def\lblwid{3.5truein}
\def\lblht{2truein}
\setbox7\vbox{}
\def\pageframe#1{\vbox{\def\boxitsep{0pt}\boxit{\hbox to \hsheetsize{\vbox to \epagesize{#1}}}
\vskip 5pt
\vbox to 0pt{\hbox to \hsheetsize{\ctr{\botfnt\count0}}\vss}
\hbox to \hsheetsize{\tenpoint\quad\lefth\hfill\righth\quad}}}
\def\getfirst#1α#2β{#1}
\def\invert#1|#2|#3β{\!#2 #1}
\def\firstchar#1#2β{#1}
\def\getgente#1\
#2@{\apply{\invert}{#1|{}|{}β}{\gente}{\def\
{\cr}\xdef\junkie{#2}}\to{\gente\cr\junkie}\chcode'15=5\chcode'45=5\let\%=\per\let\
=\¬}
\def\getpgente#1@{{\def\
{α}\xdef\gente{#1}\hdln{\gente}}{\def\
{\cr}\xdef\gente{#1}}\ljustline{\lftcol{\cr\gente}}
\chcode'15=5\chcode'45=5\vskip\genteskip\let\
=\¬}
\def\hdln#1{\apply{\firstchar}{#1β}{\junkie}
\if \junkie\ini{\null\yskip}\else{\xdef\ini{\junkie}\nlfmt}}
%∞pagebrk∞tssec/Global Initializations/
\let\xxquote=\def
\let\oeng=\english
\xdef\english{\xxquote\oeng
\def\Memo{MEMORANDUM}
\def\To{{\caps To:}}
\def\From{{\caps From:}}}
\let\oesp=\espanol
\xdef\espanol{\xxquote\oesp
\def\Memo{MEMORANDUM}
\def\To{{\caps Para:}}
\def\From{{\caps De:}}}
\let\ofra=\francais
\xdef\francais{\xxquote\ofra
\def\Memo{MEMORANDUM}
\def\To{{\caps Pour:}}
\def\From{{\caps De:}}}
\let\xxquote=\¬
\let\fottypeface=\eightpoint
\oneside
\setvsize{9.75truein}
\setmargin{1.25truein}{0truein}{.75truein}{.9375truein}
\english
\def\pname{}
\def\sname{}
\def\lbltop{}
\def\whoswho{}
\def\hdid{}